home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazine 1 / CD-ROM Magazine - Issue 01.iso / pc / demo / corelg / qtour / mode.dir / 00001_Script_1 next >
Text File  |  1995-06-06  |  962b  |  42 lines

  1. on startMovie
  2.   global gMPC,gTimer
  3.   if the machineType = 256 then
  4.     set gMPC = 1
  5.   else
  6.     set gMPC = 0
  7.   end if
  8.   set gTimer = 240
  9.   global gTICKS
  10.   put the ticks into gTICKS
  11. end
  12.  
  13. on SELECT THEMODE
  14.   global gAUTOMATIC
  15.   set gAUTOMATIC = THEMODE
  16.   set sChan = the clickon
  17.   set sNum = the castNum of sprite sChan
  18.   set sNum2 = sNum + 1
  19.   set the puppet of sprite sChan to true
  20.   repeat while the mouseDown
  21.     if the mouseCast = sNum  or the mouseCast = sNum2 then
  22.       set the castNum of sprite sChan to sNum2
  23.     else
  24.       set the castNum of sprite sChan to sNum
  25.     end if
  26.     updatestage  
  27.   end repeat
  28.   set the castNum of sprite sChan to sNum
  29.   updatestage
  30.   set the puppet of sprite sChan to false
  31.   if the mouseCast = sNum or the mouseCast = sNum2 then 
  32.     if gAUTOMATIC then 
  33.       go frame "AUTOMATIC" of movie "INTRO"
  34.     else
  35.       go movie "INTRO"
  36.     end if    
  37.   end if
  38. end
  39.  
  40. on keydown
  41.   nothing
  42. end